home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / twall.lha / tHEWAll < prev    next >
Text File  |  1995-05-26  |  1KB  |  6 lines
  1. /* The Wall - (C) 1995 by Jonas Peregrin/MATRiX */
  2. options results;gu=getuser;tr=transmit;sf=sendfile;walldata="pfiles:thewall/wall.data";wall_header="pfiles:thewall/wall.hdr";wall_bottom="pfiles:thewall/wall.btm";call display_wall;call addwall;exit;display_wall:;call open rdata,walldata,"R";do dta=1 to 5
  3. ;text.dta=readln(rdata);author.dta=readln(rdata);end;call close rdata;sf wall_header;do dta=1 to 5;tr "cc"||author.dta||"cd sagte: ";tr "ca"||text.dta;end;sf wall_bottom;return;addwall:;prompt 1 YESNO '"caEinen Spruch an die Wand kleistern cb[Ja]? c
  4. e"';if left(upper(result),1)="Y" then call write_one;call display_wall;tr 'cf-cd[ccTceastecd]cf-g0';exit;write_one:;gu 1;handle=result;author.6=handle;prompt 70 NORMAL '"cfUnd jetzt Deinen Text, Hoschin1cc:ca"';hia=result;if hia="" then hia="Bu
  5. nt ist das Dasein und Granatenstark";text.6=hia;if hia="###PANIC" then exit;call open daa,walldata,"W";do dta=2 to 6;writeln(daa,text.dta);writeln(daa,author.dta);end;call close daa;return
  6.